00100		DIMENSION R(4000),K(400),RS(128),KK(400)
00200		EQUIVALENCE (J,RS(18)),(JJ,RS(19))
00300		TYPE 1
00400	1	FORMAT(' TYPE FILE NAME  '$)
00500	2	FORMAT(A5)
00600		ACCEPT 2,NAM
00700		CALL GETEXT(NAM,'MS')
00800		CALL EXTIN(RS,128)
00900		CALL EXTIN(K,J)
01000		CALL EXTIN(R,JJ)
01100	3	N=1
01125		NN=1
01150		KK(NN)=N
01200	4	N=N+R(N)+3
01300		NN=NN+1
01400		KK(NN)=N
01450		IF(N.LT.JJ)GO TO 4
01500	5	CALL PUTEXT('X','MS')
01600		CALL EXTOUT(RS,128)
01700		CALL EXTOUT(KK,J)
01800		CALL EXTOUT(R,JJ)
01900		END